(ada-prj-display-page): Use `mapc' rather than `mapcar'.

diff --git a/lisp/progmodes/ada-prj.el b/lisp/progmodes/ada-prj.el
index 7cff0158f8a6be5223b27288b4374e9ec317e750..b3f059b2b347da6e079e34fdb392695271a6d8ef 100644 (file)
--- a/lisp/progmodes/ada-prj.el
+++ b/lisp/progmodes/ada-prj.el
@@ -254,8 +254,8 @@ The current buffer must be the project editing buffer."
       (progn
        (setq widget-field-new  nil
              widget-field-list nil)
-       (mapcar (lambda (x) (delete-overlay x)) (car (overlay-lists)))
-       (mapcar (lambda (x) (delete-overlay x)) (cdr (overlay-lists)))))
+       (mapc (lambda (x) (delete-overlay x)) (car (overlay-lists)))
+       (mapc (lambda (x) (delete-overlay x)) (cdr (overlay-lists)))))
 
   ;;  Display the tabs